home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #1 / Floppy_Magazine_87-1_1987_Megasystems_Oy_fi_Side_B.d64 / picture show (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  589b  |  22 lines
  1. 0 iff=0thenf=1:ifpeek(34872)<>162thenload"kuvat",8,1
  2. 2 ifnum=1thenprint"[147]":goto75
  3. 3 ifnum<>0then75
  4. 10 pict=6:printchr$(14):poke53280,0:poke53281,0:print"[147]"
  5. 45 dimn$(pict),c(pict)
  6. 50 fori=1topict:readn$(i):next
  7. 60 num=1
  8. 70 loadn$(num),8,1
  9. 75 sys35554:sys 34872
  10. 80 fori=0to800:next
  11. 100 num=num+1:ifnum>pictthen120
  12. 110 goto70
  13. 120 fori=0to5000:next:sys35554:poke53265,27:poke53272,23:poke53270,200
  14. 130 print"[147][158]        [214][193][204][201][212][211][197] [200][193][204][213][193][205][193][211][201][160][206][213][205][197][210][207]!"
  15. 140 print"        [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 150 print"[153]     1.[202]os haluat kuvat uudestaan"
  17. 160 print"[153]     2.[202]os haluat lopettaa ohjelman"
  18. 170 geta$:ifa$=""then170
  19. 180 ifa$="1"then60
  20. 190 ifa$="2"thensys64738
  21. 1000 data kuva 1,kuva 2,kuva 3,kuva 4,kuva 5,kuva 6
  22.